unit DMR;

interface

uses
  SysUtils, Classes, DB, ZAbstractRODataset, ZAbstractDataset, ZDataset;

type
  TDMRel = class(TDataModule)
    dsRelat: TDataSource;
    QueryRComboio: TZQuery;
    QueryRFatura: TZQuery;
    QueryRFaturaCODCOMBOIO: TIntegerField;
    QueryRFaturaNUMEROCTRC: TStringField;
    QueryRFaturaPLACA: TStringField;
    QueryRFaturaDESCRICAO: TStringField;
    QueryRFaturaNUMERO: TStringField;
    QueryRFaturaCIDORIGEM: TStringField;
    QueryRFaturaCIDDESTINO: TStringField;
    QueryRFaturaKMPREVISTO: TIntegerField;
    QueryRComboioPLACA: TStringField;
    QueryRComboioCIDADEUF: TStringField;
    QueryRComboioCORVEICULO: TStringField;
    QueryRComboioANOMOD: TSmallintField;
    QueryRComboioTIPOVEICULO: TStringField;
    QueryRComboioCHASSI: TStringField;
    QueryRComboioMARCAMODELO: TStringField;
    QueryRComboioDATALIBERACAO: TDateField;
    QueryRComboioMOTORISTA: TStringField;
    QueryRComboioRG: TStringField;
    QueryRComboioCPF: TStringField;
    QueryRComboioCNHVALIDADE: TStringField;
    QueryRComboioCELULAR: TStringField;
    QueryRComboioFONE1: TStringField;
    QueryRComboioCODCOMBOIO: TIntegerField;
    QueryRComboioDATA: TDateField;
    QueryRComboioKMPREVISTO: TIntegerField;
    QueryRComboioRASTREADOR: TStringField;
    QueryRComboioFIXO: TSmallintField;
    QueryRComboioNUMERO: TStringField;
    QueryRComboioCLIENTE: TStringField;
    QueryRComboioCONTATO: TStringField;
    QueryRComboioNOTAFISCAL: TStringField;
    QueryRComboioVALORNF: TFloatField;
    QueryRComboioNUMEROCTRC: TStringField;
    QueryRComboioOBS: TStringField;
    QueryRComboioLIMITEPESO: TIntegerField;
    QueryRComboioCARRETA1: TStringField;
    QueryRComboioCIDADEUFCARRETA1: TStringField;
    QueryRComboioCORCARRETA1: TStringField;
    QueryRComboioANOCARR1: TSmallintField;
    QueryRComboioTIPOCARRETA1: TStringField;
    QueryRParcelaPagarPaga: TZQuery;
    QueryRParcelaPagarPagaCODPARCELAPAGAR: TIntegerField;
    QueryRParcelaPagarPagaCODNOTA: TIntegerField;
    QueryRParcelaPagarPagaCODTRANSACAO: TIntegerField;
    QueryRParcelaPagarPagaDATAVENC: TDateField;
    QueryRParcelaPagarPagaDATAPAG: TDateField;
    QueryRParcelaPagarPagaVALORVENC: TFloatField;
    QueryRParcelaPagarPagaVALORPAG: TFloatField;
    QueryRParcelaPagarPagaNOME: TStringField;
    QueryRParcelaReceberRecebida: TZQuery;
    QueryRParcelaReceberRecebidaCODPARCELARECEBER: TIntegerField;
    QueryRParcelaReceberRecebidaCODFATURA: TIntegerField;
    QueryRParcelaReceberRecebidaCODTRANSACAO: TIntegerField;
    QueryRParcelaReceberRecebidaDATAREC: TDateField;
    QueryRParcelaReceberRecebidaDATAVENC: TDateField;
    QueryRParcelaReceberRecebidaVALORVENC: TFloatField;
    QueryRParcelaReceberRecebidaVALORREC: TFloatField;
    QueryRParcelaReceberRecebidaNOME: TStringField;
    QueryRAviso: TZQuery;
    QueryRAvisoCODCOMBOIO: TIntegerField;
    QueryRAvisoDATA: TDateTimeField;
    QueryRCombOcorrDig: TZQuery;
    QueryRCombOcorrDigCODCOMBOIOOCORRENCIA: TIntegerField;
    QueryRCombOcorrDigDATA: TDateTimeField;
    QueryRCombOcorrDigOBS: TStringField;
    QueryRCombOcorrDigCODCOMBOIO: TIntegerField;
    QueryRCombOcorrDigCODOCORRENCIA: TIntegerField;
    QueryRCombOcorrDigCODCIDADE: TIntegerField;
    QueryRCombOcorrDigCODITEM: TIntegerField;
    QueryRCombOcorrDigVALOR: TFloatField;
    QueryRCombOcorrDigLOCAL: TStringField;
    QueryRCombOcorrDigDATADIG: TDateTimeField;
    QueryRCombOcorrDigUSUARIODIG: TStringField;
    QueryRCombOcorrDigTempo: TTimeField;
    QueryComboioOcorrenciaExp: TZQuery;
    QueryComboioOcorrenciaExpCODCOMBOIOOCORRENCIA: TIntegerField;
    QueryComboioOcorrenciaExpDATA: TDateTimeField;
    QueryComboioOcorrenciaExpOBS: TStringField;
    QueryComboioOcorrenciaExpCODCOMBOIO: TIntegerField;
    QueryComboioOcorrenciaExpCODOCORRENCIA: TIntegerField;
    QueryComboioOcorrenciaExpCODCIDADE: TIntegerField;
    QueryComboioOcorrenciaExpCODITEM: TIntegerField;
    QueryComboioOcorrenciaExpVALOR: TFloatField;
    QueryComboioOcorrenciaExpLOCAL: TStringField;
    QueryComboioOcorrenciaExpDATADIG: TDateTimeField;
    QueryComboioOcorrenciaExpUSUARIODIG: TStringField;
    QueryComboioOcorrenciaExpEXPORTADO: TSmallintField;
    QueryComboioOcorrenciaExpALTINS: TStringField;
    QueryComboioOcorrenciaExpNOMECID: TStringField;
    QueryComboioOcorrenciaExpUF: TStringField;
    QueryComboioExp: TZQuery;
    QueryComboioExpCODCOMBOIO: TIntegerField;
    QueryComboioExpDATA: TDateField;
    QueryComboioExpPREVISAOSAIDA: TDateTimeField;
    QueryComboioExpKMPREVISTO: TIntegerField;
    QueryComboioExpCODCLIENTE: TIntegerField;
    QueryComboioExpCODRASTREADOR: TIntegerField;
    QueryComboioExpCODORIGEM: TIntegerField;
    QueryComboioExpCODDESTINO: TIntegerField;
    QueryComboioExpCODFATURA: TIntegerField;
    QueryComboioExpVALOR: TFloatField;
    QueryComboioExpVALORKM: TFloatField;
    QueryComboioExpPREVISAOCHEGADA: TDateTimeField;
    QueryComboioExpDATACHEGADA: TDateTimeField;
    QueryComboioExpEXPORTADO: TSmallintField;
    QueryComboioExpCOMBOIOCLIENTE: TStringField;
    QueryRParcelaPagarPagaOBS1: TStringField;
    QueryComboioOcorrenciaExpDESCOCORRENCIA: TStringField;
    QueryRComboioConf: TZQuery;
    QueryRComboioConfCODCOMBOIO: TIntegerField;
    QueryRComboioConfDATA: TDateField;
    QueryRComboioConfPREVISAOSAIDA: TDateTimeField;
    QueryRComboioConfKMPREVISTO: TIntegerField;
    QueryRComboioConfCODCLIENTE: TIntegerField;
    QueryRComboioConfCODRASTREADOR: TIntegerField;
    QueryRComboioConfCODORIGEM: TIntegerField;
    QueryRComboioConfCODDESTINO: TIntegerField;
    QueryRComboioConfCODFATURA: TIntegerField;
    QueryRComboioConfVALOR: TFloatField;
    QueryRComboioConfVALORKM: TFloatField;
    QueryRComboioConfPREVISAOCHEGADA: TDateTimeField;
    QueryRComboioConfDATACHEGADA: TDateTimeField;
    QueryRComboioConfEXPORTADO: TSmallintField;
    QueryRComboioConfCOMBOIOCLIENTE: TStringField;
    QueryRComboioConfNOMECLIENTE: TStringField;
    QueryRComboioConfNOMERASTREADOR: TStringField;
    QueryRComboioConfCIDADEORIGEM: TStringField;
    QueryRComboioConfCIDADEDESTINO: TStringField;
    QueryRComboioOcorrencia: TZQuery;
    QueryRFaturaKM: TIntegerField;
    QueryRFaturaVALORTOTAL: TFloatField;
    QueryRFaturaCODFATURA: TIntegerField;
    QueryRFaturaDATAEMISSAO: TDateField;
    QueryRFaturaVALOR: TFloatField;
    QueryRFaturaNOME: TStringField;
    QueryRFaturaENDERECO: TStringField;
    QueryRFaturaCNPJ: TStringField;
    QueryRFaturaIE: TStringField;
    QueryRFaturaCIDADECLI: TStringField;
    QueryRFaturaOBS1: TStringField;
    QueryRComboioConf2: TZQuery;
    QueryRComboioConf2DATA: TDateField;
    QueryRComboioConf2NOMECLIENTE: TStringField;
    QueryRComboioConf2NOMERASTREADOR: TStringField;
    QueryRComboioConf2CIDADEORIGEM: TStringField;
    QueryRComboioConf2CIDADEDESTINO: TStringField;
    QueryRComboioConf2CODVEICULO: TIntegerField;
    QueryRComboioConf2PLACA: TStringField;
    QueryRComboioConf2VALORPLACA: TFloatField;
    QueryRComboioConf2KM: TIntegerField;
    QueryRComboioConf2VALORKM: TFloatField;
    QueryRComboioConf2CODCOMBOIO: TIntegerField;
    QueryRComboioConf2CODCLIENTE: TIntegerField;
    QueryComboioOcorrenciaExpDESCLOCAL: TStringField;
    QueryComboioOcorrenciaExpTELEMONITORADO: TSmallintField;
    QueryComboioOcorrenciaExpCODLOCAL: TIntegerField;
    QueryComboioOcorrenciaExpCODVEICULO: TIntegerField;
    QueryRComboioOcorrenciaOBS: TStringField;
    QueryRComboioOcorrenciaDATA: TDateTimeField;
    QueryRComboioOcorrenciaCODCOMBOIO: TIntegerField;
    QueryRComboioOcorrenciaNOMECIDADE: TStringField;
    QueryRComboioOcorrenciaNOMEOCORRECIA: TStringField;
    QueryRComboioOcorrenciaCODVEICULO: TIntegerField;
    QueryRComboioOcorrenciaLOCAL: TStringField;
    QueryRComboioOcorrenciaCODCOMBOIOOCORRENCIA: TIntegerField;
    QueryRFaturaDATAINICIO: TDateField;
    QueryRFaturaDATAFIM: TDateField;
    QueryRFaturaQUANTIDADE: TIntegerField;
    QueryRFaturaPESO: TFloatField;
    QueryRFaturaTELEMONITORADO: TSmallintField;
    QueryRFaturamento: TZQuery;
    QueryRFaturamentoCODCOMBOIO: TIntegerField;
    QueryRFaturamentoNOME: TStringField;
    QueryRFaturamentoVALOR: TFloatField;
    QueryRFaturamentoDESTINO: TStringField;
    QueryRFaturamentoORIGEM: TStringField;
    QueryRFaturamentoCODFATURA: TIntegerField;
    QueryRFaturaRastreador: TZQuery;
    QueryRFaturaRastreadorDESCRICAO: TStringField;
    QueryRFaturaRastreadorQUANTIDADE: TIntegerField;
    QueryRDespesa: TZQuery;
    QueryLog: TZQuery;
    QueryRDespesaPARC: TFloatField;
    QueryRDespesaVALORTOTAL: TFloatField;
    QueryRDespesaDESCITEM: TStringField;
    QueryRDespesaDESCGRUPO: TStringField;
    QueryRDespesaVALORVENC: TFloatField;
    QueryRDespesaCODNOTA: TIntegerField;
    QueryRDespesaOBS1: TStringField;
    QueryRDespesaDATAPAG: TDateField;
    QueryRCombOcorrConf: TZQuery;
    QueryRCombOcorrConfUSUARIODIG: TStringField;
    QueryRCombOcorrConfDATADIG: TDateTimeField;
    QueryRCombOcorrConfUSUARIOALT: TStringField;
    QueryRCombOcorrConfDATAALT: TDateTimeField;
    QueryRCombOcorrConfCODCOMBOIO: TIntegerField;
    QueryRCombOcorrConfCODCOMBOIOOCORRENCIA: TIntegerField;
    QueryRFatura2: TZQuery;
    QueryRFatura2SOMAPESO: TFloatField;
    QueryRFatura2QTVIAGENS: TIntegerField;
    QueryRFatura2PLACA: TStringField;
    QueryRFatura2SOMAKM: TLargeintField;
    QueryRFatura2VALORMENSAL: TFloatField;
    QueryRFatura2CODCOMBOIOVEICULO: TIntegerField;
    QueryExtratoConta: TZQuery;
    QueryExtratoContaCODTRANSACAO: TIntegerField;
    QueryExtratoContaDATA: TDateField;
    QueryExtratoContaVALOR: TFloatField;
    QueryExtratoContaCODCONTA: TIntegerField;
    QueryExtratoContaTIPO: TStringField;
    QueryExtratoContaDESCRICAO: TStringField;
    QueryExtratoContaPENDENTE: TSmallintField;
    QueryExtratoContaNUMEROCONTA: TStringField;
    QueryRComboioAberto: TZQuery;
    QueryRComboioAbertoCODCOMBOIO: TIntegerField;
    QueryRComboioAbertoDATA: TDateField;
    QueryRComboioAbertoPREVISAOSAIDA: TDateTimeField;
    QueryRComboioAbertoKMPREVISTO: TIntegerField;
    QueryRComboioAbertoCODCLIENTE: TIntegerField;
    QueryRComboioAbertoCODRASTREADOR: TIntegerField;
    QueryRComboioAbertoCODORIGEM: TIntegerField;
    QueryRComboioAbertoCODDESTINO: TIntegerField;
    QueryRComboioAbertoCODFATURA: TIntegerField;
    QueryRComboioAbertoVALOR: TFloatField;
    QueryRComboioAbertoVALORKM: TFloatField;
    QueryRComboioAbertoPREVISAOCHEGADA: TDateTimeField;
    QueryRComboioAbertoDATACHEGADA: TDateTimeField;
    QueryRComboioAbertoEXPORTADO: TSmallintField;
    QueryRComboioAbertoCOMBOIOCLIENTE: TStringField;
    QueryRComboioAbertoUSUARIODIG: TStringField;
    QueryRComboioAbertoNOMERASTREADOR: TStringField;
    QueryRComboioAbertoCIDADEORIGEM: TStringField;
    QueryRComboioAbertoCIDADEDESTINO: TStringField;
    QueryRComboioAbertoNOME: TStringField;
    QueryRComboioAbertoCELULAR: TStringField;
    QueryRComboioAbertoCODCOMBOIOVEICULO: TIntegerField;
    QueryRComboioAbertoRASTREADORVEICULO: TStringField;
    QueryRComboioAbertoUSUARIODIG_1: TStringField;
    QueryRComboioCIDADEUFDEST: TStringField;
    QueryRComboioCIDADEUFOR: TStringField;
    QueryRComboioAbertoUltimaPosicao: TStringField;
    QueryRChequePendente: TZQuery;
    QueryRChequePendenteNOMINAL: TStringField;
    QueryRChequePendenteNUMEROCHEQUE: TIntegerField;
    QueryRChequePendenteDATAEMISSAO: TDateField;
    QueryRChequePendenteDATAPREVISTA: TDateField;
    QueryRChequePendenteVALOR: TFloatField;
    QueryRChequePendenteNUMEROCONTA: TStringField;
    QueryRChequePendenteBANCO: TStringField;
    QueryComboioOcorrenciaExpDATAALT: TDateTimeField;
    QueryComboioOcorrenciaExpUSUARIOALT: TStringField;
    QueryComboioExpUSUARIODIG: TStringField;
    QueryComboioExpSITE: TSmallintField;
    QueryComboioExpESPECIAL: TSmallintField;
    QueryRAnomalia: TZQuery;
    QueryRAnomaliaDESCRICAO: TStringField;
    QueryRAnomaliaDATASTART: TDateTimeField;
    QueryRAnomaliaDATASTOP: TDateTimeField;
    QueryRAnomaliaUSUARIOSTART: TStringField;
    QueryRAnomaliaATITUDE: TStringField;
    QueryRAnomaliaNOME: TStringField;
    QueryRAnomaliaPLACA: TStringField;
    QueryRVeiculosRastreados: TZQuery;
    QueryRVeiculosRastreadosCODVEICULO: TIntegerField;
    QueryRVeiculosRastreadosNOME: TStringField;
    QueryRVeiculosRastreadosDATA: TDateField;
    QueryRVeiculosRastreadosCODCOMBOIO: TIntegerField;
    QueryRVeiculosRastreadosPLACA: TStringField;
    QueryRVeiculosRastreadosMES: TSmallintField;
    QueryRPlanoContas: TZQuery;
    QueryRPlanoContasITEM: TStringField;
    QueryRPlanoContasCODITEM: TIntegerField;
    QueryRPlanoContasGRUPO: TStringField;
    QueryRPlanoContasCODGRUPO: TIntegerField;
    QueryRFaturaDESCONTO: TFloatField;
    QueryRDuplicata: TZQuery;
    QueryRDestinosComboio: TZQuery;
    QueryRDestinosComboioCIDADEUF: TStringField;
    QueryRDestinosComboioPLACA: TStringField;
    dsRelat2: TDataSource;
    QueryRPrazoRec: TZQuery;
    QueryRPrazoRecDIAS: TIntegerField;
    QueryRPrazoRecNOME: TStringField;
    QueryRPrazoRecDATAVENC: TDateField;
    QueryRPrazoRecDATAREC: TDateField;
    QueryRPrazoRecCODFATURA: TIntegerField;
    QueryRPrazoRecCODPARCELARECEBER: TIntegerField;
    QueryRPrazoRecVALORVENC: TFloatField;
    QueryRParcelaPagarPaga2: TZQuery;
    IntegerField1: TIntegerField;
    IntegerField2: TIntegerField;
    IntegerField3: TIntegerField;
    DateField1: TDateField;
    DateField2: TDateField;
    FloatField1: TFloatField;
    FloatField2: TFloatField;
    StringField1: TStringField;
    StringField2: TStringField;
    QueryRFatLocacao: TZQuery;
    QueryRFatLocacaoCODFATURA: TIntegerField;
    QueryRFatLocacaoDATAEMISSAO: TDateField;
    QueryRFatLocacaoVALORTOTAL: TFloatField;
    QueryRFatLocacaoNOME: TStringField;
    QueryRFatLocacaoOBS1: TStringField;
    QueryRFatLocacaoDATAINICIO: TDateField;
    QueryRFatLocacaoDATAFIM: TDateField;
    QueryRFatLocacaoDESCONTO: TFloatField;
    QueryRFatLocacaoDATAINSTALACAO: TDateTimeField;
    QueryRFatLocacaoDATADESINSTALACAO: TDateTimeField;
    QueryRFatLocacaoCODEQUIPAMENTO: TIntegerField;
    QueryRFatLocacaoCODCOMBOIO: TIntegerField;
    QueryRFatLocacaoVALORLOCACAO: TFloatField;
    QueryRFatLocacaoVALORCOMUNICACAO: TFloatField;
    QueryRFatLocacaoORIGEM: TStringField;
    QueryRFatLocacaoDESTINO: TStringField;
    QueryRFatLocacaoCIDCLIENTE: TStringField;
    QueryRFatLocacaoENDERECO: TStringField;
    QueryRFatLocacaoIE: TStringField;
    QueryRFatLocacaoCNPJ: TStringField;
    QueryRFatLocacaoCODLOCACAO: TIntegerField;
    QueryRFatLocacaoPLACA: TStringField;
    QueryRFatLocacaoNOMEMOT: TStringField;
    QueryRComboioCOMBOIOCLIENTE: TStringField;
    QueryRComboioMCT: TStringField;
    QueryRComboioDESCMERCADORIA: TStringField;
    QueryRParcelaPagarPagaCODTIPOPAGAMENTO: TIntegerField;
    QueryRParcelaPagarPagaVALORJUROS: TFloatField;
    QueryComboioExp2: TZQuery;
    IntegerField4: TIntegerField;
    DateField3: TDateField;
    DateTimeField1: TDateTimeField;
    IntegerField5: TIntegerField;
    IntegerField6: TIntegerField;
    IntegerField7: TIntegerField;
    IntegerField8: TIntegerField;
    IntegerField9: TIntegerField;
    IntegerField10: TIntegerField;
    FloatField3: TFloatField;
    FloatField4: TFloatField;
    DateTimeField2: TDateTimeField;
    DateTimeField3: TDateTimeField;
    SmallintField1: TSmallintField;
    StringField3: TStringField;
    StringField4: TStringField;
    SmallintField2: TSmallintField;
    SmallintField3: TSmallintField;
    QueryComboioExp2CODROTA: TIntegerField;
    QueryComboioExp2CODTIPOOPERACAO: TIntegerField;
    QueryComboioExp2CODEXTERNO: TStringField;
    QueryComboioExp2DATAINIDESCARGA: TDateTimeField;
    QueryComboioExp2DATAFINDESCARGA: TDateTimeField;
    QueryRComboioConfPeso: TZQuery;
    QueryRComboioConfPesoDATA: TDateField;
    QueryRComboioConfPesoCODCOMBOIO: TIntegerField;
    QueryRComboioConfPesoCODCLIENTE: TIntegerField;
    QueryRComboioConfPesoNOMECLIENTE: TStringField;
    QueryRComboioConfPesoNOMERASTREADOR: TStringField;
    QueryRComboioConfPesoCIDADEORIGEMDESTNIO: TStringField;
    QueryRComboioConfPesoCODVEICULO: TIntegerField;
    QueryRComboioConfPesoPLACA: TStringField;
    QueryRComboioConfPesoPESO: TFloatField;
    QueryRComboioConfPesoNUMEROCTRC: TStringField;
    QueryRComboioConfPesoNOTAFISCAL: TStringField;
    QueryRAvaliacaoMotorista: TZQuery;
    QueryRAvaliacaoMotoristaCODAVALIACAO: TIntegerField;
    QueryRAvaliacaoMotoristaDATA: TDateField;
    QueryRAvaliacaoMotoristaTIPOAVALIACAO: TStringField;
    QueryRAvaliacaoMotoristaCODMOTORISTA: TIntegerField;
    QueryRAvaliacaoMotoristaCODCOMBOIO: TIntegerField;
    QueryRAvaliacaoMotoristaPLACA: TStringField;
    QueryRAvaliacaoMotoristaNOME: TStringField;
    QueryRAvaliacaoMotoristaNUMEROCTRC: TStringField;
    QueryRContaRastreador: TZQuery;
    QueryRContaRastreadorPLACA: TStringField;
    QueryRContaRastreadorNOME: TStringField;
    QueryRContaRastreadorDESCRICAO: TStringField;
    QueryRContaRastreadorDATAINICIO: TDateField;
    QueryRContaRastreadorDATAFINAL: TDateField;
    QueryRContaRastreadorTEMPO: TIntegerField;
    QueryRAux: TZQuery;
    QueryRUltimaPosicao: TZQuery;
    QueryRUltimaPosicaoCODCOMBOIO: TIntegerField;
    QueryRUltimaPosicaoPLACA: TStringField;
    QueryRUltimaPosicaoNOME: TStringField;
    QueryRUltimaPosicaoDESCRICAO: TStringField;
    QueryRUltimaPosicaoCELULAR: TStringField;
    QueryRUltimaPosicaoNOTAFISCAL: TStringField;
    QueryRUltimaPosicaoPREVISAOSAIDA: TDateTimeField;
    QueryRUltimaPosicaoDATAOCORRENCIA: TDateTimeField;
    QueryRUltimaPosicaoOCORRENCIA: TStringField;
    QueryRUltimaPosicaoCIDADEATUAL: TStringField;
    QueryREnvioNCV: TZQuery;
    QueryREnvioNCVNOME: TStringField;
    QueryREnvioNCVDESCRICAO: TStringField;
    QueryREnvioNCVPLACA: TStringField;
    QueryREnvioNCVCIDADEUF: TStringField;
    QueryRComboioAbertoSITE: TSmallintField;
    QueryRComboioAbertoESPECIAL: TSmallintField;
    QueryRComboioAbertoCODROTA: TIntegerField;
    QueryRComboioAbertoCODTIPOOPERACAO: TIntegerField;
    QueryRComboioAbertoCODLOCALENTREGA: TIntegerField;
    QueryRComboioAbertoCODLOCALCOLETA: TIntegerField;
    QueryRComboioAbertoPLACA: TStringField;
    QueryRFaturaDATA: TDateField;
    QueryRFaturaCODCLIENTE: TIntegerField;
    QueryRComboioConfPesoCOMBOIOCLIENTE: TStringField;
    QueryRResumoOperacional: TZQuery;
    QueryRResumoOperacionalQUANTIDADE: TFloatField;
    QueryRResumoOperacionalDESCRICAO: TStringField;
    QueryRGraficoAnomalia: TZQuery;
    QueryRComboioCODCOMBOIOVEICULO: TIntegerField;
    QueryREnvioNCVORIGEM: TStringField;
    QueryREnvioNCVDESTINO: TStringField;
    QueryRComboio2: TZQuery;
    QueryRComboio2PLACA: TStringField;
    QueryRComboio2CIDADEUFVEI: TStringField;
    QueryRComboio2CORVEICULO: TStringField;
    QueryRComboio2COMBOIOCLIENTE: TStringField;
    QueryRComboio2DESCMERCADORIA: TStringField;
    QueryRComboio2ANOMOD: TSmallintField;
    QueryRComboio2TIPOVEICULO: TStringField;
    QueryRComboio2CHASSI: TStringField;
    QueryRComboio2MARCAMODELO: TStringField;
    QueryRComboio2DATALIBERACAO: TDateField;
    QueryRComboio2MOTORISTA: TStringField;
    QueryRComboio2RG: TStringField;
    QueryRComboio2CPF: TStringField;
    QueryRComboio2CNHVALIDADE: TStringField;
    QueryRComboio2CELULAR: TStringField;
    QueryRComboio2FONE1: TStringField;
    QueryRComboio2CODCOMBOIO: TIntegerField;
    QueryRComboio2DATA: TDateField;
    QueryRComboio2KMPREVISTO: TIntegerField;
    QueryRComboio2RASTREADOR: TStringField;
    QueryRComboio2FIXO: TSmallintField;
    QueryRComboio2NUMERO: TStringField;
    QueryRComboio2CLIENTE: TStringField;
    QueryRComboio2CONTATO: TStringField;
    QueryRComboio2FONECLI: TStringField;
    QueryRComboio2CELULARCLI: TStringField;
    QueryRComboio2EMAIL: TStringField;
    QueryRComboio2NOTAFISCAL: TStringField;
    QueryRComboio2VALORNF: TFloatField;
    QueryRComboio2NUMEROCTRC: TStringField;
    QueryRComboio2OBS: TStringField;
    QueryRComboio2LIMITEPESO: TIntegerField;
    QueryRComboio2CARRETA1: TStringField;
    QueryRComboio2MCT: TStringField;
    QueryRComboio2CODCOMBOIOVEICULO: TIntegerField;
    QueryRComboio2CIDADEUFCARRETA1: TStringField;
    QueryRComboio2CORCARRETA1: TStringField;
    QueryRComboio2ANOCARR1: TSmallintField;
    QueryRComboio2TIPOCARRETA1: TStringField;
    QueryRComboio2CIDADEUFDEST: TStringField;
    QueryRComboio2CIDADEUFOR: TStringField;
    QueryRComboio2RENAVAM: TStringField;
    QueryRComboioItensSeg: TZQuery;
    QueryRComboio2CODVEICULO: TIntegerField;
    QueryRComboio2FONE2: TStringField;
    QueryRComboio2ENDMOT: TStringField;
    QueryRComboio2DATANASCIMENTO: TDateField;
    QueryRComboio2COMPLEMENTO: TStringField;
    QueryRComboio2CIDADEUFMOTORISTA: TStringField;
    QueryRComboio2BAIRRO: TStringField;
    QueryRComboio2PESO: TFloatField;
    QueryRComboio2PREVISAOSAIDA: TDateTimeField;
    QueryRComboio2PREVISAOCHEGADA: TDateTimeField;
    QueryRRotaComboio: TZQuery;
    QueryRRotaComboioDESCRICAO: TStringField;
    QueryRFatura3: TZQuery;
    IntegerField11: TIntegerField;
    StringField5: TStringField;
    StringField6: TStringField;
    StringField7: TStringField;
    StringField8: TStringField;
    StringField9: TStringField;
    StringField10: TStringField;
    IntegerField12: TIntegerField;
    IntegerField13: TIntegerField;
    FloatField5: TFloatField;
    IntegerField14: TIntegerField;
    DateField4: TDateField;
    FloatField6: TFloatField;
    StringField11: TStringField;
    StringField12: TStringField;
    StringField13: TStringField;
    StringField14: TStringField;
    StringField15: TStringField;
    StringField16: TStringField;
    DateField5: TDateField;
    DateField6: TDateField;
    IntegerField15: TIntegerField;
    FloatField7: TFloatField;
    SmallintField4: TSmallintField;
    FloatField8: TFloatField;
    DateField7: TDateField;
    IntegerField16: TIntegerField;
    QueryRFatura3PREVISAOSAIDA: TDateTimeField;
    QueryRFatura3PREVISAOCHEGADA: TDateTimeField;
    QueryRFatura3DATACHEGADA: TDateTimeField;
    QueryRFatura3NOMEMOT: TStringField;
    QueryRFatura3TEMPO: TLargeintField;
    QueryRFatura3MCT: TStringField;
    QueryRComboio2CODCARRETA1: TIntegerField;
    QueryRComboio2CODCARRETA2: TIntegerField;
    QueryRComboio2CODCARRETA3: TIntegerField;
    QueryRComboio2CONSULTAMOTORISTA: TStringField;
    QueryRFaturaContaRastreador: TZQuery;
    QueryRFaturaContaRastreadorCPF: TStringField;
    QueryRFaturaContaRastreadorNOMEMOTORISTA: TStringField;
    QueryRFaturaContaRastreadorDATAINICIO: TDateTimeField;
    QueryRFaturaContaRastreadorDATAFINAL: TDateTimeField;
    QueryRFaturaContaRastreadorNOMECLIENTE: TStringField;
    QueryRFaturaContaRastreadorFONE: TStringField;
    QueryRFaturaContaRastreadorCNPJ: TStringField;
    QueryRFaturaContaRastreadorCELULAR: TStringField;
    QueryRFaturaContaRastreadorFAX: TStringField;
    QueryRFaturaContaRastreadorVALORCONTA: TFloatField;
    QueryRFaturaContaRastreadorCONTATO: TStringField;
    QueryRFaturaContaRastreadorVALORFATURA: TFloatField;
    QueryRFaturaContaRastreadorDATAEMISSAO: TDateField;
    QueryRFaturaContaRastreadorDATAVENCIMENTO: TDateField;
    QueryRFaturaContaRastreadorRASTREADOR1: TStringField;
    QueryRFaturaContaRastreadorCODVEICULO: TIntegerField;
    QueryRFaturaContaRastreadorPLACA: TStringField;
    QueryRFaturaContaRastreadorRENAVAM: TStringField;
    QueryRFaturaContaRastreadorCHASSI: TStringField;
    QueryRFaturaContaRastreadorANOFAB: TSmallintField;
    QueryRFaturaContaRastreadorANOMOD: TSmallintField;
    QueryRFaturaContaRastreadorCORVEICULO: TStringField;
    QueryRFaturaContaRastreadorMARCAVEICULO: TStringField;
    QueryRFaturaContaRastreadorMODELOVEICULO: TStringField;
    QueryRFaturaContaRastreadorCIDADEUFVEICULO: TStringField;
    QueryRFaturaContaRastreadorTIPOVEICULO: TStringField;
    QueryRFaturaContaRastreadorRASTREADOR: TStringField;
    QueryRFaturaContaRastreadorCODMOTORISTA: TIntegerField;
    QueryRFaturaContaRastreadorVALORDIARIACONTA: TFloatField;
    QueryRFaturaContaRastreadorDIASCONTA: TFloatField;
    QueryRFaturaContaRastreadorCODFATURA: TIntegerField;
    QueryRFaturaContaRastreadorDATAINIFAT: TDateField;
    QueryRFaturaContaRastreadorDATAFIMFAT: TDateField;
    QueryRFaturaContaRastreadorCIDADEUFCLI: TStringField;
    QueryRFaturaContaRastreadorENDERECO: TStringField;
    QueryRFaturaContaRastreadorIE: TStringField;
    QueryRCombOcorrConf2: TZQuery;
    QueryRCombOcorrConf2CODCOMBOIO: TIntegerField;
    QueryRCombOcorrConf2OCORRENCIA: TStringField;
    QueryRCombOcorrConf2DATA: TDateTimeField;
    QueryRCombOcorrConf2PLACA: TStringField;
    QueryRCombOcorrConf2LOCAL: TStringField;
    QueryRCombOcorrConf2CIDADEUF: TStringField;
    QueryRCombOcorrConf2USUARIODIG: TStringField;
    QueryRComboioOcorrenciaORIGEMCONTATO: TStringField;
    QueryRFaturamento2: TZQuery;
    IntegerField17: TIntegerField;
    StringField17: TStringField;
    StringField18: TStringField;
    StringField19: TStringField;
    StringField20: TStringField;
    StringField21: TStringField;
    StringField22: TStringField;
    IntegerField18: TIntegerField;
    IntegerField19: TIntegerField;
    FloatField9: TFloatField;
    IntegerField20: TIntegerField;
    DateField8: TDateField;
    FloatField10: TFloatField;
    StringField23: TStringField;
    StringField24: TStringField;
    StringField25: TStringField;
    StringField26: TStringField;
    StringField27: TStringField;
    StringField28: TStringField;
    DateField9: TDateField;
    DateField10: TDateField;
    IntegerField21: TIntegerField;
    FloatField11: TFloatField;
    SmallintField5: TSmallintField;
    FloatField12: TFloatField;
    DateField11: TDateField;
    IntegerField22: TIntegerField;
    DateTimeField4: TDateTimeField;
    DateTimeField5: TDateTimeField;
    DateTimeField6: TDateTimeField;
    StringField29: TStringField;
    LargeintField1: TLargeintField;
    StringField30: TStringField;
    QueryRComboio2SENHACOMUNICACAO: TStringField;
    QueryRCavaloCarretaComp: TZQuery;
    QueryRCavaloCarretaCompCODVEICULO: TIntegerField;
    QueryRCavaloCarretaCompPLACA: TStringField;
    QueryRCavaloCarretaCompRENAVAM: TStringField;
    QueryRCavaloCarretaCompCHASSI: TStringField;
    QueryRCavaloCarretaCompANOFAB: TSmallintField;
    QueryRCavaloCarretaCompANOMOD: TSmallintField;
    QueryRCavaloCarretaCompCORVEICULO: TStringField;
    QueryRCavaloCarretaCompMARCAVEICULO: TStringField;
    QueryRCavaloCarretaCompMODELOVEICULO: TStringField;
    QueryRCavaloCarretaCompCIDADEUFVEICULO: TStringField;
    QueryRCavaloCarretaCompTIPOVEICULO: TStringField;
    QueryRCavaloCarretaCompRASTREADOR: TStringField;
    QueryRCavaloCarretaCompCODCARRETA1: TIntegerField;
    QueryRCavaloCarretaCompCODCARRETA2: TIntegerField;
    QueryRCavaloCarretaCompCODCARRETA3: TIntegerField;
    QueryRCavaloCarretaCompCAVALO: TSmallintField;
    QueryRCavaloCarretaCompCODMOTORISTA: TIntegerField;
    QueryRCavaloCarretaCompPLACACARRETA1: TStringField;
    QueryRCavaloCarretaCompRENAVAMCARRETA1: TStringField;
    QueryRCavaloCarretaCompCHASSICARRETA1: TStringField;
    QueryRCavaloCarretaCompANOFABCARRETA1: TSmallintField;
    QueryRCavaloCarretaCompANOMODCARRETA1: TSmallintField;
    QueryRCavaloCarretaCompCORCARRETA1: TStringField;
    QueryRCavaloCarretaCompMARCACARRETA1: TStringField;
    QueryRCavaloCarretaCompMODELOCARRETA1: TStringField;
    QueryRCavaloCarretaCompCIDADEUFCARRETA1: TStringField;
    QueryRCavaloCarretaCompTIPOCARRETA1: TStringField;
    QueryRCavaloCarretaCompPLACACARRETA2: TStringField;
    QueryRCavaloCarretaCompRENAVAMCARRETA2: TStringField;
    QueryRCavaloCarretaCompCHASSICARRETA2: TStringField;
    QueryRCavaloCarretaCompANOFABCARRETA2: TSmallintField;
    QueryRCavaloCarretaCompANOMODCARRETA2: TSmallintField;
    QueryRCavaloCarretaCompCORCARRETA2: TStringField;
    QueryRCavaloCarretaCompMARCACARRETA2: TStringField;
    QueryRCavaloCarretaCompMODELOCARRETA2: TStringField;
    QueryRCavaloCarretaCompCIDADEUFCARRETA2: TStringField;
    QueryRCavaloCarretaCompTIPOCARRETA2: TStringField;
    QueryRCavaloCarretaCompPLACACARRETA3: TStringField;
    QueryRCavaloCarretaCompRENAVAMCARRETA3: TStringField;
    QueryRCavaloCarretaCompCHASSICARRETA3: TStringField;
    QueryRCavaloCarretaCompANOFABCARRETA3: TSmallintField;
    QueryRCavaloCarretaCompANOMODCARRETA3: TSmallintField;
    QueryRCavaloCarretaCompCORCARRETA3: TStringField;
    QueryRCavaloCarretaCompMARCACARRETA3: TStringField;
    QueryRCavaloCarretaCompMODELOCARRETA3: TStringField;
    QueryRCavaloCarretaCompCIDADEUFCARRETA3: TStringField;
    QueryRCavaloCarretaCompTIPOCARRETA3: TStringField;
    QueryRCavaloCarretaCompCODCLIENTE: TIntegerField;
    QueryRClientesAtivos: TZQuery;
    QueryRClientesAtivosCODCLIENTE: TIntegerField;
    QueryRClientesAtivosNOME: TStringField;
    QueryRClientesAtivosCNPJ: TStringField;
    QueryRClientesAtivosFONE: TStringField;
    QueryRClientesAtivosFAX: TStringField;
    QueryRClientesAtivosCELULAR: TStringField;
    QueryRClientesAtivosENDERECO: TStringField;
    QueryRClientesAtivosBAIRRO: TStringField;
    QueryRClientesAtivosCEP: TStringField;
    QueryRClientesAtivosCOMPLEMENTO: TStringField;
    QueryRClientesAtivosCODCIDADE: TIntegerField;
    QueryRClientesAtivosIE: TStringField;
    QueryRClientesAtivosDELETADO: TSmallintField;
    QueryRClientesAtivosCODCLIENTEPRINCIPAL: TIntegerField;
    QueryRClientesAtivosCONTATO: TStringField;
    QueryRClientesAtivosCODUSUARIOWEB: TIntegerField;
    QueryRClientesAtivosSEGURADORA: TStringField;
    QueryRClientesAtivosCONTATOSEGURADORA: TStringField;
    QueryRClientesAtivosFONESEGURADORA: TStringField;
    QueryRClientesAtivosSENHACOMUNICACAO: TStringField;
    QueryRClientesAtivosEMAIL: TStringField;
    QueryRClientesAtivosEXIGEKM: TSmallintField;
    QueryRClientesAtivosVALORVIAGEM: TFloatField;
    QueryRClientesAtivosAVALIACAOMOTORISTA: TSmallintField;
    QueryRClientesAtivosCONTROLANCV: TSmallintField;
    QueryRClientesAtivosLOGO: TStringField;
    QueryRClientesAtivosMONITORACARGA: TSmallintField;
    QueryRClientesAtivosMONITORAVEICULO: TSmallintField;
    QueryRClientesAtivosVALORDIARIACONTA: TFloatField;
    QueryRClientesAtivosATIVO: TSmallintField;
    QueryRClientesAtivosETIQUETA: TSmallintField;
    QueryRClientesAtivosCIDADEUF: TStringField;
    QueryRCavaloCarretaCompNOME: TStringField;
    QueryRCavaloCarretaCompFONE1: TStringField;
    QueryRCavaloCarretaCompCELULAR: TStringField;
    QueryRCavaloCarretaCompCPF: TStringField;
    QueryRComboioCONSULTAMOTORISTA: TStringField;
    QueryRComboioAbertoSTATUS: TSmallintField;
    QueryRComboioAbertoNOMECLIENTE: TStringField;
    QueryRFatura4: TZQuery;
    IntegerField23: TIntegerField;
    StringField31: TStringField;
    StringField32: TStringField;
    StringField33: TStringField;
    StringField34: TStringField;
    StringField35: TStringField;
    StringField36: TStringField;
    IntegerField24: TIntegerField;
    IntegerField25: TIntegerField;
    FloatField13: TFloatField;
    IntegerField26: TIntegerField;
    DateField12: TDateField;
    FloatField14: TFloatField;
    StringField37: TStringField;
    StringField38: TStringField;
    StringField39: TStringField;
    StringField40: TStringField;
    StringField41: TStringField;
    StringField42: TStringField;
    DateField13: TDateField;
    DateField14: TDateField;
    IntegerField27: TIntegerField;
    FloatField15: TFloatField;
    SmallintField6: TSmallintField;
    FloatField16: TFloatField;
    DateField15: TDateField;
    IntegerField28: TIntegerField;
    DateTimeField7: TDateTimeField;
    DateTimeField8: TDateTimeField;
    DateTimeField9: TDateTimeField;
    StringField43: TStringField;
    LargeintField2: TLargeintField;
    StringField44: TStringField;
    QueryRFatura4HORA: TTimeField;
    QueryRFatura4origemdestino: TStringField;
    QueryRComboioConfUSUARIODIG: TStringField;
    QueryRComboioConfSITE: TSmallintField;
    QueryRComboioConfESPECIAL: TSmallintField;
    QueryRComboioConfCODROTA: TIntegerField;
    QueryRComboioConfCODTIPOOPERACAO: TIntegerField;
    QueryRComboioConfCODLOCALENTREGA: TIntegerField;
    QueryRComboioConfCODLOCALCOLETA: TIntegerField;
    QueryRComboioConfSTATUS: TSmallintField;
    QueryRComboioConfHORA: TTimeField;
    QueryRComboioConfVEICULO: TStringField;
    QueryRAnomaliaVeiculo: TZQuery;
    QueryRAnomaliaVeiculoCODANOMALIA: TIntegerField;
    QueryRAnomaliaVeiculoDESCRICAO: TStringField;
    QueryRAnomaliaVeiculoDATASTART: TDateTimeField;
    QueryRAnomaliaVeiculoDATASTOP: TDateTimeField;
    QueryRAnomaliaVeiculoUSUARIOSTART: TStringField;
    QueryRAnomaliaVeiculoATITUDE: TStringField;
    QueryRAnomaliaVeiculoPLACA: TStringField;
    QueryRAnomaliaVeiculoORIGEM: TStringField;
    QueryRAnomaliaVeiculoDESTINO: TStringField;
    QueryREnvioNCVDATA: TDateField;
    QueryREnvioNCVComboio: TZQuery;
    QueryREnvioNCVComboioORIGEM: TStringField;
    QueryREnvioNCVComboioDESTINO: TStringField;
    QueryREnvioNCVComboioDATA: TDateField;
    QueryREnvioNCVComboioOBRVALORMERCADORIA: TSmallintField;
    QueryREnvioNCVComboioOBRNUMEROCTRC: TSmallintField;
    QueryREnvioNCVComboioOBRNOTAFISCAL: TSmallintField;
    QueryREnvioNCVComboioOBRCONSULTAMOTORISTA: TSmallintField;
    QueryREnvioNCVComboioNOME: TStringField;
    QueryREnvioNCVComboioPLACA: TStringField;
    QueryREnvioNCVComboioVALMERCADORIA: TStringField;
    QueryREnvioNCVComboioVALCTRC: TStringField;
    QueryREnvioNCVComboioVALNF: TStringField;
    QueryREnvioNCVComboioVALCONSMOT: TStringField;
    procedure QueryRCombOcorrDigCalcFields(DataSet: TDataSet);
    procedure QueryRCombOcorrDigAfterOpen(DataSet: TDataSet);
    procedure QueryRComboioAbertoCalcFields(DataSet: TDataSet);
    procedure QueryRComboioAfterOpen(DataSet: TDataSet);
    procedure QueryRFatura4CalcFields(DataSet: TDataSet);
  private
    { Private declarations }
    Tempo : TDateTime;
  public
    { Public declarations }
  end;

var
  DMRel: TDMRel;

implementation

uses DM, Geral;

{$R *.dfm}

procedure TDMRel.QueryRCombOcorrDigCalcFields(DataSet: TDataSet);
begin
    DataSet.FieldByName('Tempo').AsDateTime := DataSet.FieldByName('DATADIG').AsDateTime - Tempo;
    Tempo := DataSet.FieldByName('DATADIG').AsDateTime;
end;

procedure TDMRel.QueryRCombOcorrDigAfterOpen(DataSet: TDataSet);
begin
    Tempo := DataSet.FieldByName('DATADIG').AsDateTime;
end;

procedure TDMRel.QueryRComboioAbertoCalcFields(DataSet: TDataSet);
begin
    Where.Clear;
    Where.Add('o.codocorrencia = co.codocorrencia');
    Where.Add('co.codcomboio = '+ DataSet.FieldByName('CODCOMBOIO').AsString);
    Where.Add('co.codcomboioocorrencia = (select max (codcomboioocorrencia) from comboioocorrencia where codcomboio = '+ DataSet.FieldByName('CODCOMBOIO').AsString + ')');
    Where.Add(' AND ');
    DataSet.FieldByName('ULTIMAPOSICAO').AsString := GetCampoQuery('comboioocorrencia co, ocorrencia o','(o.descricao) AS DESCRICAO',Where);
    Where.Clear;    
end;

procedure TDMRel.QueryRComboioAfterOpen(DataSet: TDataSet);
begin
    with QueryRDestinosComboio do
    begin
        SetaDataset(dsRelat2,QueryRDestinosComboio);
        Close;
        ParamByName('pcod').AsInteger := DataSet.FieldByName('codcomboio').AsInteger;
        open;
    end;
end;

procedure TDMRel.QueryRFatura4CalcFields(DataSet: TDataSet);
begin
    DataSet.FieldByName('origemdestino').AsString := DataSet.FieldByName('cidorigem').AsString+DataSet.FieldByName('ciddestino').AsString; 
end;

end.
